home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / word_prc / wf313b.zip / WF312PDF.ZIP / PS-ANSI.PDV < prev    next >
Text File  |  1994-02-27  |  8KB  |  214 lines
  1. %!PS-Adobe-2.0
  2. %%Title: WORD FUGUE POSTSCRIPT
  3. %%EndComments
  4.  
  5. statusdict begin 0 setjobtimeout end
  6.  
  7. /wfdict 120 dict def
  8. wfdict begin
  9.  
  10. /wfeur [16#80 /fraction
  11. 16#81 /quotesingle
  12. 16#82 /quotesinglbase 16#83 /florin 16#84 /quotedblbase
  13. 16#85 /ellipsis 16#86 /dagger 16#87 /daggerdbl 16#88 /circumflex
  14. 16#89 /perthousand 16#8a /Scaron 16#8b /guilsinglleft 16#8c /OE
  15. 16#8d /fi 16#8e /fl 16#8f /lslash 16#90 /Lslash
  16. 16#91 /zcaron 16#92 /Zcaron
  17. 16#93 /quotedblleft 16#94 /quotedblright
  18. 16#95 /bullet 16#96 /endash 16#97 /emdash 16#98 /tilde
  19. 16#99 /trademark 16#9a /scaron 16#9b /guilsinglright 16#9c /oe
  20. 16#9f /Ydieresis
  21. %% 16#a1 /exclamdown a2 /cent 16#a3 /sterling
  22. 16#a4 /currency
  23. %%16#a5 /yen
  24. 16#a6 /brokenbar
  25. %%16#a7 /section
  26. 16#a8 /dieresis 16#a9 /copyright 16#aa /ordfeminine
  27. 16#ab /guillemotleft 16#ac /logicalnot 16#ad /minus 16#ae /registered
  28. 16#af /macron 16#b0 /degree 16#b1 /plusminus 16#b2 /twosuperior
  29. 16#b3 /threesuperior 16#b4 /acute 16#b5 /mu
  30. %%16#b6 /paragraph
  31. 16#b7 /periodcentred 16#b8 /cedilla 16#b9 /onesuperior 16#ba /ordmasculine
  32. 16#bb /guillemotright 16#bc /onequarter 16#bd /onehalf 16#be /threequarters
  33. 16#bf /questiondown 16#c0 /Agrave 16#c1 /Aacute 16#c2 /Acircumflex
  34. 16#c3 /Atilde 16#c4 /Adieresis 16#c5 /Aring 16#c6 /AE 16#c7 /Ccedilla
  35. 16#c8 /Egrave 16#c9 /Eacute 16#ca /Ecircumflex 16#cb /Edieresis
  36. 16#cc /Igrave 16#cd /Iacute 16#ce /Icircumflex 16#cf /Idieresis
  37. 16#d0 /Eth 16#d1 /Ntilde 16#d2 /Ograve 16#d3 /Oacute 16#d4 /Ocircumflex
  38. 16#d5 /Otilde 16#d6 /Odieresis 16#d7 /multiply 16#d8 /oslash 16#d9 /Ugrave
  39. 16#da /Uacute 16#db /Ucircumflex 16#dc /Udieresis 16#dd /Yacute 16#de /Thorn
  40. 16#df /germandbls 16#e0 /agrave 16#e1 /aacute 16#e2 /acircumflex
  41. 16#e3 /atilde 16#e4 /adieresis 16#e5 /aring 16#e6 /ae 16#e7 /ccedilla
  42. 16#e8 /egrave 16#e9 /eacute 16#ea /ecircumflex 16#eb /edieresis
  43. 16#ec /igrave 16#ed /iacute 16#ee /icircumflex 16#ef /idieresis
  44. 16#f0 /eth 16#f1 /ntilde 16#f2 /ograve 16#f3 /oacute 16#f4 /ocircumflex
  45. 16#f5 /otilde 16#f6 /odieresis 16#f7 /divide
  46. 16#f8 /oslash 16#f9 /ugrave
  47. 16#fa /uacute
  48. 16#fb /ucircumflex 16#fc /udieresis
  49. 16#fd /yacute 16#fe /Thorn
  50. 16#ff /ydieresis
  51. ] def
  52.  
  53. /RE {         %% add extra chars to font
  54.     /reencode 12 dict def
  55.     reencode begin
  56.         /newfontname exch def
  57.         /basefontname exch def
  58.         FontDirectory newfontname known not
  59.             {/basefont basefontname findfont def
  60.             /newfont basefont maxlength dict def
  61.             basefont {exch dup /FID ne
  62.                     {dup /Encoding eq
  63.                         {exch dup length array copy newfont 3 1 roll put}
  64.                         {exch newfont 3 1 roll put} ifelse
  65.                     }
  66.                     {pop pop} ifelse
  67.             } forall
  68.             newfont /FontName newfontname put
  69.             wfeur aload
  70.             length 2 idiv {newfont /Encoding get 3 1 roll put} repeat
  71.             newfontname newfont definefont pop
  72.         } if
  73.     newfontname
  74.     end
  75. } bind def
  76.  
  77. /hsr { /LH 12 def
  78.        /sz 10 def
  79.      } bind def
  80.  
  81.   %% define the 35 standard postscript 2.0 fonts
  82.   %% first 13 are the standard ones for postscript 1.0
  83. /fcr  { hsr /Courier /f0 RE findfont 10 scalefont setfont } bind def
  84. /fci  { hsr /Courier-Oblique /f1 RE findfont 10 scalefont setfont } bind def
  85. /fcb  { hsr /Courier-Bold /f2 RE findfont 10 scalefont setfont } bind def
  86. /fcbi { hsr /Courier-BoldOblique /f3 RE findfont 10 scalefont setfont } bind def
  87. /fhr  { hsr /Helvetica /f4 RE findfont 10 scalefont setfont } bind def
  88. /fhi  { hsr /Helvetica-Oblique /f5 RE findfont 10 scalefont setfont } bind def
  89. /fhb  { hsr /Helvetica-Bold /f6 RE findfont 10 scalefont setfont } bind def
  90. /fhbi { hsr /Helvetica-BoldOblique /f7 RE findfont 10 scalefont setfont } bind def
  91. /ftr  { hsr /Times-Roman /f8 RE findfont 10 scalefont setfont } bind def
  92. /fti  { hsr /Times-Italic /f9 RE findfont 10 scalefont setfont } bind def
  93. /ftb  { hsr /Times-Bold /f10 RE findfont 10 scalefont setfont } bind def
  94. /ftbi { hsr /Times-BoldItalic /f11 RE findfont 10 scalefont setfont } bind def
  95. /fsy  { hsr /Symbol /f12 RE findfont 10 scalefont setfont } bind def
  96. /fag  { hsr /AvantGarde-Book /f13 RE findfont 10 scalefont setfont } bind def
  97. /fai  { hsr /AvantGarde-BookOblique /f14 RE findfont 10 scalefont setfont } bind def
  98. /fab  { hsr /AvantGarde-Demi /f15 RE findfont 10 scalefont setfont } bind def
  99. /fabi { hsr /AvantGarde-DemiOblique /f16 RE findfont 10 scalefont setfont } bind def
  100. /fbk  { hsr /Bookman-Light /f17 RE findfont 10 scalefont setfont } bind def
  101. /fbi  { hsr /Bookman-LightItalic /f18 RE findfont 10 scalefont setfont } bind def
  102. /fbb  { hsr /Bookman-Demi /f19 RE findfont 10 scalefont setfont } bind def
  103. /fbbi { hsr /Bookman-DemiItalic /f20 RE findfont 10 scalefont setfont } bind def
  104. /fnh  { hsr /Helvetica-Narrow /f21 RE findfont 10 scalefont setfont } bind def
  105. /fni  { hsr /Helvetica-Narrow-Oblique /f22 RE findfont 10 scalefont setfont } bind def
  106. /fnb  { hsr /Helvetica-Narrow-Bold /f23 RE findfont 10 scalefont setfont } bind def
  107. /fnbi { hsr /Helvetica-Narrow-BoldOblique /f24 RE findfont 10 scalefont setfont } bind def
  108. /fsc  { hsr /NewCenturySchlbk-Roman /f25 RE findfont 10 scalefont setfont } bind def
  109. /fsi  { hsr /NewCenturySchlbk-Italic /f26 RE findfont 10 scalefont setfont } bind def
  110. /fsb  { hsr /NewCenturySchlbk-Bold /f27 RE findfont 10 scalefont setfont } bind def
  111. /fsbi { hsr /NewCenturySchlbk-BoldItalic /f28 RE findfont 10 scalefont setfont } bind def
  112. /fpr  { hsr /Palatino-Roman /f29 RE findfont 10 scalefont setfont } bind def
  113. /fpi  { hsr /Palatino-Italic /f30 RE findfont 10 scalefont setfont } bind def
  114. /fpb  { hsr /Palatine-Bold /f31 RE findfont 10 scalefont setfont } bind def
  115. /fpbi { hsr /Palatine-BoldItalic /f32 RE findfont 10 scalefont setfont } bind def
  116. /fzi  { hsr /ZapfChancery-MediumItalic /f33 RE findfont 10 scalefont setfont } bind def
  117. /fzd  { hsr /ZapfDingbats /f34 RE findfont 10 scalefont setfont } bind def
  118. /LH 12 def
  119. /sz 10 def
  120. /sc 1 def
  121. /newl {20 currentpoint exch pop LH sub moveto} bind def
  122. /newp {20 plen 42 sub moveto} bind def
  123. /subsc { gsave
  124.           currentpoint LH 4 div sub moveto
  125.           currentfont 1 0.6 scale
  126.         } bind def
  127. /super {gsave
  128.           currentpoint LH 4 div add moveto
  129.           currentfont 1 0.6 scale
  130.         } bind def
  131. /ssoff { currentpoint pop /cx exch def
  132.          grestore
  133.          currentpoint exch pop cx exch moveto
  134.         } bind def
  135. /SF {  %% scale font
  136.     dup sz mul /sz exch def   %% sz = new point size
  137.     dup /sc exch def          %% sc = scale factor
  138.     dup scale setfont         %% scale font to new size
  139.     /LH sz 1.2 mul def        %% LH = new line height
  140.     currentfont
  141. } bind def
  142. %%    exch findfont exch scalefont setfont
  143. /PS6Point  {%%gsave
  144.             currentfont 0.6 SF} bind def
  145. /PS10Point {%%gsave
  146.             currentfont 1.0 SF} bind def
  147. /PS12Point {%%gsave
  148.             currentfont 1.2 SF} bind def
  149. /PS16Point {%%gsave
  150.             currentfont 1.6 SF} bind def
  151. /PS20Point {%%gsave
  152.             currentfont 2.0 SF} bind def
  153. /PS40Point {%%gsave
  154.             currentfont 4.0 SF} bind def
  155. /unscale {
  156.           currentpoint /dy exch def /dx exch def
  157.           %%grestore
  158.           /LH LH sc div def
  159.           /sz sz sc div def
  160.           %%dx dy moveto
  161.           currentfont 1 sc div dup scale setfont
  162.           } bind def
  163. /L { %%width length - draw line
  164.     currentpoint /dy exch def /dx exch def
  165.     exch dup setlinewidth 0 exch neg rmoveto 0 rlineto stroke newpath
  166.     dx dy moveto
  167. } bind def
  168.  
  169. /Uon {
  170.     Ua 0 eq
  171.     {currentpoint /Uy exch def /Ux exch def} if
  172.     /Ua 1 def
  173. } bind def
  174.  
  175. /Uoff {
  176.     currentpoint
  177.         Ua 1 eq
  178.            {0.5 setlinewidth
  179.            currentpoint 1 sub moveto Ux Uy 1 sub lineto stroke newpath
  180.            } if
  181.         /Ua 0 def
  182.     moveto
  183. } bind def
  184.  
  185. /_landscape {
  186.     0 plen translate -90 rotate
  187. } bind def
  188.  
  189. /_a4 {
  190.     /plen 841.26 def
  191. } bind def
  192.  
  193. /_letter {
  194.     /plen 792 def
  195. } bind def
  196.  
  197. /_legal {
  198.     /plen 1008 def
  199. } bind def
  200.  
  201. /_exec {
  202.     /plen 756 def
  203. } bind def
  204.  
  205. /ST {
  206. %   setpapertray
  207.     pop
  208. } bind def
  209. _a4       %% paper size
  210. fcr       %% initial font
  211. /Ua 0 def %% no underlining
  212.  
  213. %%end of preamble
  214.